o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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00000 

00001 
00002 
00003 
00004 
00005 
00006 
00007 

00010 
00011 

00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 



00030 R 

00031 R 

00032 R 

00033 R 

00034 R 

00035 R 

00036 R 

00037 R 

00040 R 

00041 R 

00042 R 

00043 R 



VPli>A SRQ 



707764 A 

R 600014 A 

R 000000 A 

R 000000 A 

R 000000 A 

R 000070 R 

R 000044 R 

R 262061 A 

R 650140 A 

R 000200 A 

R A 

R 000000 A 

R 000000 A 

R 000000 A 

R 000000 A 

R 000000 A 

R 000000 A 

R 000000 A 

R 000000 A 



700522 
700622 
700524 
700624 
700724 
700521 
700722 
700564 A 
700664 A 
700721 A 
700544 A 
700644 A 



707702 
707764 



VP15A SYSTEM EXERCISER 

.TITLE VP15A SYSTEM EXERCISER 
/COPYRIGHT FEBRUARY 22,1971 

/DIGITAL, EQUIPMENT CQKPORATION MAYNARO, MASS, 01754 
/REV, OATE 3/l/7i 
/PROGRAMMED BY? EARl, (, , BQUSE 

/ 
/THIS PROGRAM IS DESIGNED TO EXERCISE THE 'VPISA' STORAGE 
/TUBE DISPLAY SYSTEM, 

,EBREl 
EBAS707764 

/ 
UODSW 600014 /I/O DEVICE WITH >API' ADDRESS '54', 

KRAN ~ /AMOUNT OF RANDOM NUMBERS PLOTTED IN RANDOM TEST, 0=262144 





,DSA SERVCE 

,DSA I'NIT" 

(SIXBT 'VP15A ' 



SYSERR 
ERQOQE 



/VP15A 

CX8 
CYB 
IXB 

lYS 

EST 

SDDF 

CODF 

lXt3D 

LYBD 

EDI 
LXPNS 

LYONS 

EEM5707 
E8A=;707 



200 

.BLOCK 








/ 
JOT'S 

/ 

700522 
700622 
700524 
700624 
700724 
700521 
700722 
700564 
700664 
700721 
700544 
700644 
/ 

702 

764 
.EJECT 



/DATA 'SW10' INHIBITS 'VP15A' TEST, 
/ERROR INDICATOR FOR MONITOR, 
/ERROR CODE 



/CLEAR iX' COORDINATE BUFFER 

/CLEAR 'Y' COORDINATE BUFFER 

/LOAD 'X' COORDINATE BUFFER 'AC8rl7« 

/LOAD 'Y' COORDINATE BUFFER 'AC8^17I 

/ERASE STORAGE TUBE 

/SKIP ON DISPLAY DONE FLAG, 

/CLEAR DISPLAY DONE FLAG, 

/l^QAD »X' BUFFER AND DISPLAY 'XB^YBI 

/LOAD «Y' BUFFER AND DISPLAY «YB^XB» 

/ENABLE DISPLAY INTERRUPT 

/LOAD 'X' AND DISPLAY " NpN STORE 

/LOAD 'Y' AND DISPLAY » NON STORE 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 
O 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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00044 R 000(300 A 

00045 R 707764 A 

00046 R 707702 A 

00047 R 200044 R 

00050 R 040070 R 

00051 R 140020 R 

00052 R 140021 R 

00053 R 140022 R 

00054 R 141546 R 

00055 R 777776 A 

00056 R 041550 R 

00057 R 777634 A 

00060 R 041545 R 

00061 R 201551 R 

00062 R 400041 R 

00063 R 201552 R 

00064 R 040106 R 

00065 R 100454 R 

00066 R 400034 R 

00067 R 620044 R 



00070 R 000000 A 

00071 R 707764 A 

00072 R 707702 A 

00073 R 041543 R 

00074 R 141546 R 

00075 R 201541 R 

00076 R 740200 A 
%mil R 600104 R 

00100 R 400035 R 

00101 R 600437 R 

00102 R mill A 

00103 R 041546 R 

00104 R 141541 R 

00105 R 620106 R 

00106 R 000000 A 



VP15A SYSTEM EXERQISER 
/INHIAUIHE THE 'VP15A' TEST 



INIT 




EBA 

EEM 






lAC 


INIT 




OAC 


SERVCE 




D2M 


SYSERR 




DZM 


SYSERR*! 




DZM 


ENCODE 




D^M 


FLGDRV 




LAW 


^i' ' 




DAC 


THRDCT 




LAW 


«i44 




DAC 


RUNCTK 




lAC 


(2) 




XCT 


EDI 




lAC 


asTi 




PAQ 


PSTSWl 




JMS 


Hoyjsw 




XCT 


EST 




JMP* 
/ 


INIT 


/SERVICE ENTRANCE 
1 


SERVCE 


f 



EBA 

EEM 






DAC 


SAVEAC 




D2M 


PLGDRV 




UAC 


HQt^ENB 




SHA 






^MP 


SERVl 




XCT 


SODF 




gMP 


eXITM5 




LAW 


■"l 




DAC 


rtGDRV 


SERVl 


OHM 


HOLENB 




vJMP* 


Dsfswi 



PSTSWl 



I L yu w I 



/ENABLE BANK ADDRESSING 

/CLEAR ERROR LOCATIONS 
/CLEAR 'FLAG PRiVENf tOCATJON 

/SET UP LOOP COUNTER FOR TEST #1 
/ENABLE DISPLAY INTERRUPT 



/CHECK FOR HOLD SWITCH 
/ERASE STORAGE TUBE 



/ENABLE BANK ADDRESSING 

/SAVE CONTENTS OF 'ACi 

/CLEAR fFLAG DRIVEN' INDICATOR 

/WAS INHIBIT SW SET? 
/YES, RECHECK SW, 
/SKIP ON DISPLAY DONE FLAG, 
/NO FLAG* EXIT MINUS '5' 



/CLEAR INHIBIT SW, 

/TEST DISTRIBUTION LOCATION 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
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O /TEST ^ 

/DISPLAY A 'BOXt WJTH 'BISECTORS' AND 'DlAGONAt,S' 



O 00153 R 6001X2 R JMP TSTl*;J 

00154 R 400034 R KXTSTl XCT EST " /ERASE STORAGE TUBE 

00155 R 201557 R LAC (fST? /SET UP FOR TEST #2 
O 00156 R 040106 R OAC DSTSWl 

BiS%97 R 777777 A LAW »i 

00160 R 041546 R DAO FLGDRV 

O 00161 R 60042/ R 4MP EXIT " 

lEJECT 

o 
o 
o 

o 



o 

o 
o 



^ / 

O 00107 R 4000-56 R TSTl XCT CODE /CLEAR DISPLAY OONE FLAG, O 

00110 R 777754 A LAW =24 

00111 R 041544 R DAC CNTRl /'TSTl' LOOP COUNTER 
O 00112 R 201553 R LAC (XCT LXB 

00113 R 040514 R DAC QISP3' 

00114 R 040533 R OAC UJSPS 
O 00115 R 201554 R LAC (XCT LYBD 

00116 R 040517 R DAC DJSP4' 

00117 R 040536 R DAC P'tSP6 



O 
O 

o 



O 00120 R 750000 A CLA 

00121 R 100513 R JMS PLINE /PLOT A LINE AT X=0 

00122 R 201534 R LAC EDGE /=Ta 1777 
O 00123 R 100513 R JMS PLINE /PLOT A LINE AT X=1777 O 

00124 R 201555 R LAC UCT LYB 

00125 R 040514 R OAC PJSPS'^ 

O 00126 R 040533 R OAC DJSP5 O 

00127 R 201556 R t-AC (XCT LXBD 

00130 R 040517 R DAC DISP4" 

O 00131 R 040536 R DAC DiSP6 O 

00132 R 750000 A CLA 

00133 R 100513 R JMS PLJNE /PLOT A LJNE AT Yp0 

U 00134 R 201534 R LAC EDGE /?T0 1777 O 

00135 R 100532 R JMS HLINE /PLOT A LINE AT YPi777 

00136 R 201535 R LAC CENTER /sTQ 1000 

Q 00137 R 100532 R JMS MLINE" /PLOT A LINE AT Y3i000 O 

00140 R 201553 R LAC (XCT LXB 

00141 R 040514 R OAC DJSPS" 

O 00142 R 040533 R OAC Dl'SPS Q 

00143 R 201554 R LAC (XCT LYBD 

00144 R 040517 R DAC PISP4" 
O 00145 R 040536 R DAC d|sp6 

00146 R 201535 R LAC CENTER 

00147 R 100532 R JMS MLINE" /PLOT A LINE AT X=1000 
O 00150 R 100551 R jMS DIAGl /PLOT 'LL' TO 'UR» DIAGONAL O 

00151 R 100563 R JMS DIAG2 /PLOT 'UL» TO 'LR' DIAGONAL 

00152 R 101022 R JMS SETEXt? /FINISHED TEST #1, 



o 



o 
o 
o 
o 
o 
o 
o 



o 
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VP15A 


SRC 


VP15A SYSTEM EXERCJSER 


o 










/TEST 


#2 














/SUBROUTINE TO 


SETUP TO PLOT A 












/qgORDlNATES STORED IN 'XYAXIS' 


o 












/ 






00162 


R 


400036 


R 


TST2 


XCT 


gOQF 




00163 


R 


777700 


A 




lAW 


"100 


o 


00164 


R 


041544 


R 




DAC 


CNTRl 




00165 


R 


201560 


R 




LAC 


(NOP 




00166 


R 


040676 


R 




DAC 


CONSTA 


o 


00167 


R 


040703 


R 




DAC 


CONSTB 




00170 


R 


040721 


R 




DAC 


CONSTC 




00171 


R 


040726 


R 




DAC 


CONSTO 


o 


00172 


R 


040746 


R 




DAC 


CdNSTE 




00173 


R 


040755 


R 




DAC 


GONSTF 




00174 


R 


040771 


R 




OAC 


CONSTG 


o 


00175 


R 


041000 


R 




DAC 


OONSTH 




00176 


R 


040677 


R 




DAC 


CONSTA*! 




00177 


R 


040704 


R 




DAC 


CONST0*1 


o 


00200 


R 


040722 


R 




DAC 


CONSTC*! 




00201 


R 


040727 


R 




DAC 


CONSTD*! 




00202 


R 


040747 


R 




DAC 


C0NSTE*1 


o 


00203 


R 


040756 


R 




DAC 


C0NSTP'*1 




00204 


R 


040772 


R 




DAC 


CONSTe*l 




00205 


R 


041001 


R 




DAC 


CONSTHti 


o 


00206 


R 


100653 


R 




>JMS 


CIRCLE 




00207 


R 


101022 


R 




vJMS 


SETEX& 




00210 


R 


600165 


R 




sJMP 


TST2*v5 


o 


00211 


R 


600212 


R 


/TEST 


JMP 
3 


TST3 












/PLOT 


A QUADRENT "COHPl, JMENTED" 


o 










/Pt,QTTED WITH 


TEST #2, 




00212 


R 


400036 


R 


TST3 


XCT 


CPDF 





00213 


R 


777700 


A 




LAW 


«100 




00214 


R 


041544 


R 




DAC 


CNTRl 




00215 


R 


201561 


R 




LAC 


(TAD K77470) 


o 


00216 


R 


040676 


R 




DAC 


CONSTA 




00217 


R 


040703 


R 




OAC 


cdNSTB 




00220 


R 


BA07H 


R 




DAC 


CONSTG 


o 


00221 


R 


040726 


R 




DAC 


CONSTD 




00222 


R 


201562 


R 




uc 


(TAD K310 




00223 


R 


040746 


R 




DAC 


CONSTE 


o 


00224 


R 


040755 


R 




DAC 


CONSTF 




00225 


R 


040721 


R 




DAC 


CONSTU 




00226 


R 


041000 


R 




DAC 


CONSTH 


o 


00227 


R 


100653 


R 




JMS 


CIRCLE 




00230 


R 


101022 


R 




JMS 


SETEX& 




00231 


R 


60021S 


R 




JMP 


TST3*3 


o 


00232 


R 


400034 


R 




XCT 


EST 




00233 


R 


201563 


R 




LAC 


(tST4 




00234 


R 


040106 


R 




DAC 


QSTSWl 


o 


00235 


R 


600427 


R 




JMP 
.EJECT 


EXIT 


o 
















o 

















IIRCLE USING THE 'X^Y' 
TABLE. 

/ClEAR THE DISP.LAY DONE FEAG, 

/LOOP COUNTER FOR TEST #2 



/PLOT CIRCLE 
/FINISHED TEST #2? 
/NQ» LOOP AGAiN 



CIRCLE INSIOE THE CIRCLE 



/CLEAR DISPLAY DONE 



/= TO 'TAD (»310' 



/= TO 'TAD (310» 



/PLOT 'COMPLIMENTED' CIRCLE 
/FINISHED TEST #3, 
/NOj LOOP AGAIN, 
/ERASE STORAGE TUBE 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
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00253 R 101022 R JMS SETEX> 

O 00254 R 600252 R JMP T5T4A ' 

00255 R 600256 R JMP TST4B 

/ 
O /TEST #4B 



00277 R 041546 R OAC FLGDRV 

O 00300 R 201567 R LAC (fST5 

00301 R 0401,06 R DAC DSTSWl 

00302 R 600427 R JMP EXJT 
O I EJECT 

o ■ 

o 
o 
o 



o 

o 
o 
o 



O /TEST #4 

/Pt,OT A 6" CIRCLE VIA USING THE SAME X'^Y TABlE AS TEST #2 

/VIA ROTATING ONCE l,EF'T, 

O /■■'"- 

00236 R 400036 R TST4 XCT QDDF 

00237 R 777700 A LAW "100 

O 00240 R 041544 R OAC CNTRl O 

00241 R 201564 R (.AC (CULIHAL 

00242 R 040676 R OAC OONSTA 

O 00243 R 040703 R DAC CONSTB O 

00244 R 040721 R OAC CONSTC 

00245 R 040726 R OAC QONSTO 

O 00246 R 040746 R DAC CQNSTE '-' 

00247 R 040755 R DAC CQNSTF 

00250 R 040771 R DAC CONSTG 

O 00251 R 041000 R DAC CONSTH O 

00252 R 100653 R TST4A JMS CJRCLE . /PLOT THE CIF?CLE, 



O 
O 



/PLOT THE QUADRENT CIKCLE OF TEST#4, 

O 00256 R 777700 A TST4B LAW '3,00 O 

00257 R 041544 R DAC CNTRl 

00260 R 201565 R LAC (TAP K77270 

O 00261 R 040677 R DAC CONSTA*! O 

00262 R 040704 R DAC QdNSTB*l 

00263 R 040727 R DAC CONSTO*! 

O 00264 R 040772 R DAC CONSTG*l O 

00265 R 201566 R LAC (TAD K610 

00266 R 040722 R DAC QONSTC*! 

O 00267 R 040747 R DAC CgNSTEtl O 

00270 R 040756 R DAC CONSTF*! 

00271 R 0410fc3a. R DAC CONSTH*! 

O 00272 R 100653 R TST4C JMS CIRCLE /PIOT THE COMPLIMENTED CIRCLE! O 

00273 R 101022 R JMS SETEX? 

00274 R 600272 R JMP T3T4C ' 

O 00275 R 400034 R XCT EST /ERASE THE STORAGE TUBE, O 

00276 R 777777 A LAW ^X 



O 
O 
O 
O 

o 

o 



o 
o 



o 
o 
o 
o 
o 
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003|?3 R 04l5ii4 R DAC TEMPi 

.EgECT 



O 

o 

o 



O /TEST #5 

/PL,OT A 'DIAMONPI WITH BISECTORS 
/ 

O 00303 R 400036 R TST5 XCT CUPF /C^EAR OISPIAY DONE ^ 

00304 R 777730 A t,AW «»?0 

00305 R 041544 R QAC CNTRi ^ 
O 00306 R 2015/0 R UAC (1,000 ^ 

00307 R 041524 R DAC TEMPI /INITIALIZE THE 'Y' COORINATE, 

00310 R 04l5i26 R DAC TEMP3 ^ 

O 00311 R 141525 R DHM TEMP2 /INITIALIZE THE 'X' COORDINATE ^ 

00312 R 101032 R JMS INPXY /PLOT THE 'UPPER LEFTt VECTOR 

00313 R 141524 R D?M TEMPI / 1 N I T I Al, I Zp; »Y' 

O 00314 R 201570 R LAC (1000 ^ 

00315 R 041525 R DAC TEMP2 /INITIALIZE ' )< ' 

00316 R 201524 R TST5A LAC TEMPI /PLOT THE »VERTICaL' LINE 
O 00317 R 400033 R XCT LY8 

00320 R 201525 R LAC TEMP2 

00321 R 400037 R XCT LXBD 
O 00322 R 100644 R JMS WAJTFG 

00323 R 441524 R ISZ TEMPI 

00324 R 201524 R LAC TEMPI 
O 00325 R 541571 R SAD lllll 

00326 R 741000 A SKP 

00327 R 600316 R JMP TST5A ^^ 
O 00330 R 141524 R DZM TEMPI ^ 

00331 R 201570 R LAC (1000 

00332 R 041525 R DAC TEMPg 

C 00333 R 201571 R LAC (1777 O 

00334 R 041526 R DAC TEMPS 

00335 R 101032 R aM5 INCXY /PLOT THE 'LOWER RJGHT' VECTOR 

O 00336 R 141525 R DZM TEMP2 O 

00337 R 201570 R LAC (i000 

00340 R 041524 R DAC TEMPI _ 

O 00341 R 041526 R DAC TEMP3 O 

00342 R 101046 R JMS INXDCY /PLOT THE 'LOWER LEFT' VECTOR 

00343 R 201570 R LAC (;!,000 

O 00344 R 041525 R DAC TEMP2 O 

00345 R 201571 R LAC (1777 

00346 R 041524 R DAC TEMPI ^ 
O 00347 R 041526 R DAC TEMP3 O 

00350 R 101046 R JMS JNXDQY /PLOT THE 'UPPER RIGHT' VECTOR 

00351 R 141525 R DZM TEMPg 
O 00352 R 201570 R LAC U000 O 



o 
o 
o 



o 
o 
o 
o 
o 



o 
o 



o 
o 
o 
o 
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00364 R 74lMk)0 A SKP 

O 00365 R 6003^4 R JHP TST5B 

00366 R 101022 R JMS SETEXi? 

00367 R 600306 R JMP TST5*3 
O 00370 R 400034 R XCT EST 

00371 R linil A t-AW "i 

00372 R 041546 R DAC FCGDRV 
O 00373 R 201S?72 R LAC (TST6 

00374 R 040106 R DAC OSTSWl 

0037^' R 600427 R JMP EXIT 
O ' /TEST #6 



•EJECT 



o 

o 



O 00354 R 201!>24 R TST5B l,AC TEMPI /PIOT ThE 'HORUONTAI' 1,INE O 

00355 R 400033 R XCT LYB 

00356 R 201525 R |„AC fEMP2 

O 00357 R 40003/ R XCT tXBD O 

00360 R 100644 R s^MS WAITf'G 

00361 R 441525 R ISZ TENP2" 

O 00362 R 201525 R L,AC TEMP? O 

00363 R 541571 R SAD (1777 



o 
o 
o 
o 
o 
o 



/PLOT A SERIES OF 'RANDOM' NUMBERS, 
/ 

O 00376 R 400036 R TST6 XCT CDDF 

00377 R 200001 R lAC KRAN 

00400 R 741200 A SNA 

O 00401 R 600404 R JHP TST6,1 

00402 R 740001 A CMA 

00403 R 341573 R TAD (I) ^ 
O 00404 R 041544 R TST6,1 DAC CNTRl O 

00405 R 100473 R JMS RANDOM 

00406 R 501571 R AND (1777 

O 00407 R 400033 R XCT L,YB /UOAD THE 'Y' BUFFERi O 

00410 R 100473 R JMS RANDOM 

00411 R 5015/i R AND (1777 

O 00412 R 400037 R XCT LXBD /LOAD 'X' AND DISPLAY 'XB«YB', O 

00413 R 100644 R JMS WAJTFG 

00414 R 441544 R ISZ CNTRl 

O 00415 R 600405 R JMP T5T6,1*1 O 

00416 R 777774 A UW «4 

00417 R 040020 R DAC SYSERR 

O 00420 R 041546 R DAC FUGDRV O 

00421 R 777770 A 1,AW "10 

00422 R 041550 R DAC THRDCT 

O 00423 R 400036 R XCT CDDF " O 

00424 R 441550 R ISZ THRDCT 

00425 R 600423 R JMP i"? 

O 00426 R 600427 R JMP EXJT O 



O 
C 
O 

o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 
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B0427 
00430 
00431 
00432 
00433 
00434 
00435 
00436 



VPltJA SRC 



741200 
600442 
7055512 
751100 
201^43 
703344 
6200/0 



00454 

00455 

00456 

00457 

00460 

00461 

00462 

00463 

00464 

00465' 

00466 

00467 

00470 

00471 

00472 



R 000 

R 750 

R 500 

R 741 

R 620 

R 200 

R 041 

R 777 

R 041 

R 201 

R 040 

R 600 

R 201 

R 040 

R 600 



000 
004 
010 
200 
454 
106 
542 
777 
541 
574 
106 
437 
542 
106 
455 



00437 R 777773 A 

00440 R 040020 R 

00441 R 600432 R 



00442 R 70553.2 A 

00443 R 741100 A 

00444 R 600446 R 

00445 R 600437 R 



00446 R 777777 A 

00447 R 040020 R 

00450 R 040021 R 

00451 R 201573 R 

00452 R 040022 R 

00453 R 600432 R 



VP15A SYSTEM EXERCISER 

EXIT i-AC FL,GDRV 

SNA 
vJMP NOFtAG 

RPU 
SPA|Cl,A 

UC SAVEAC 

DBR 

gMP» SERVCE 
/ 
/SET UP FOR A "«5" EXIT 

/ 

EXITM5 l,AW "5 

OAC SYSERR 

JMP EXIT*3 

/ 
/EXIT 'MINUS 5' IF NOT Ft,AG DRIVENi 

/ 
NOFUAG RPI„ 

SPA 

JMP ERROR! 

JMP EXITM5 

/ 
/ERROR #1, IULEGA!„ 'APp ENTRY 

/ 
ERRORl LAW "1 

SYSERH 
SYSERH*! 

(i 

ERCOOE 
EXIT*3 



/WAS PROGRAM FLAG DRIVEN? 
/NO 

/JAPp ENABLED? 
/YES, RESTORE 'AC, 



/WAS lApIf ON? 

/YES, ILLEGAL 'APP ENTRY 



LAW 

DAC 

DAC 

LAC 

DAC 

JMP 

/ 

/ 



/TEST FOR DATA iSWi0' WHICH INHIBITS THE VP15A TEST, 
/ 



HOLDSW 



HOLD.l 





LAS 

AND 

SNA 

JMP« 

LAC 

OAC 

LAW 

DAC 

LAC 

DAC 

viMP 

LAC 

DAC 

gMP 

.EJECT 



UPQSW*10 
HOLDSW 

Dsfswi 

SAVDSf 

HOLENa 

(HOLDjl 

OSTSWl 

EXITM5 

SAVDSf 

PSTSWi 

HOLDSW*! 



/MASK DATA SW10 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 



o 
o 
o 
o 



o 



o 
o 
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005253 R 201522 R LAC KSTORl 

O 00526 R 62053,3 R JMP» PL,|NE 

/ 

00527 R 100644 R L.INEA 4MS WAITFG /WAIT FqR DONE FIAG 

O 00530 R 201524 R L.AC TEMPI 

00531 R 600517 R JMP DISP4 



lE^ECT 



o 

o 



O /RANDOM N0, GENERATORf EXJT WITH N0, IN THE 'AQ, O 

/ 

00473 R 000000 A RANDOM 

O 00474 R 341556 R TAD RANA ^ 

00475 R 341537 R TAD RANB 

00476 R 341540 R TAD RANG 

O 00477 R 041536 R DAC RANA ^ 

00500 R 750010 A GLK 

00501 R 341536 R TAD RANA _ 
O 00502 R 341537 R TAD RANB ^ 

00503 R 341540 R TAD RANG 

00504 R 041537 R OAC RANB ^ 
O 00505 R 750010 A G|,K ^ 

00506 R 341536 R TAD RANA 

00507 R 341537 R TAD RANB .- 
O 00510 R 341540 R TAD BANC ^ 

00511 R 041540 R DAC RANG 

00512 R 620473 R JMP* RANDOM ^^ 

O " ■ ■ / ^ 

/SUBROUTINE TO DISPUAY A FULU UENGTH LJNE EITHER H0RI20NTAI, 

/OR VERTICAt AT A POINT DETERMINED BY THE CONTENTS QF THE AG, ^ 

O / ^ 

00513 R 000000 A PLINE 

00514 R 740040 A DISP3 XX /UGAQ 'X' OR 'Y' BUFFER 

O 0053.5 R 041522 R DAG KSTORl /SAVE POINT ^ 

00516 R 750000 A Cl,A 

00517 R 740040 A DISP4 XX /L,OAD «X' OR 'Y« BUFFER AND DISPLAY, 
O 00520 R 341573 R TAD (1 

00521 R 041524 R DAC TEMPi 

00522 R 541575 R SAD «2000 /UPPER IIMJT? ^ 
O 00523 R 741000 A SKP /YES, EXIT ^ 

00524 R 600527 R JMP kINEA /N0» REPEAT 



O 



O 

Q 
O 
O 
O 
O 

o 
o 
o 



o 
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VP15A 


SRC 


o 








o 










00532 R 


000000 


A 




00533 R 


740040 


A 


o 


00534 R 


041522 


R 




00535 R 


2015^54 


R 




00536 R 


740040 


A 


o 


00537 R 


341576 


R 




00540 R 


041524 


R 




00541 R 


5415/6 


R 


o 


00542 R 


741000 


A 




00543 R 


6005<J6 


R 




00544 R 


201522 


R 


o 


00545 R 


6205^2 


R 




00546 R 


100644 


R 


o 


00547 R 


201524 


R 




00550 R 


600536 


R 


o 








o 


00551 R 


000000 


A 




00552 R 


750000 


A 




00553 R 


040555 


R 


o 


00554 R 


100601 


R 




00555 R 


000000 


A 




00556 R 


440555 


R 


o 


00557 R 


200555 


R 




00560 R 


541575 


R 




00561 R 


620551 


R 


o 


00562 R 


600554 


R 


o 










00563 R 


000000 


A 


o 


00564 R 


201571 


R 




00565 R 


040570 


R 




00566 R 


750000 


A 


o 


00567 R 


100601 


R 




00570 R 


001777 


A 




00571 R 


750001 


A 


o 


00572 R 


340570 


R 




00573 R 


040570 


R 




00574 R 


541576 


R 


o 


00575 R 


620563 


R 




00576 R 


441547 


R 




00577 R 


201547 


R 


o 


00600 R 


600567 


R 


o 








o 









VP15A SYSTEM EXERCISER 



UAC KSTORl 
JMP» Mt,INE" 



o 
o 



/SUBROUTINE TO DISPLAY A FULL LINE «MINUS INCREMENTS) O 

/(HORIZONTAL, OR VERTICAL) AT THE POSITION DETERMINED BY 



o 



/THE CONTENTS OF THE AC, 

/ 

MLINE 
DISP5 XX /LOAD 'X' OR «Y' BUFFER, _ 

DAC KSTORl ^ 

LAC EDGE 
DISP6 XX /LOAD 'X' OR «Yi AND DISPLAY, _ 

TAD ("l /DECREMENT POINT PLOT U 

DAC TEMPI 

SAD {^X /FINISHED? _ 

SKP /YES U 

UMP LINEB 
L 

o 



o 



o 



/ 

LINEB gMS WAITFG /WAIT FqR DqNE FLAG 

LAC TEMPI 

gMP DISP6 

/ ,.-, 

/SUBROUTINE TO DISPLAY A DIAGONAL LINE FROM ^ 

/LOWER LEf^T TO UPPER RIGHTi 

/ 
DIAGI 

CLA /ZERO "X" 

DAC ,+2 /HERO »Y" ^ 

JMS POINT /DISPLAY X|Y ^ 

/»X' 

ISZ ,«! /INCREMENT "Y" ^ 

LAC ,-^2 /GET 'X« U 

SAD (2000 /FINISHED LINE? 

JMP* OiAGl /YES, EXIT „ 

JMP ,s6 /NO, DISPLAY NEXT POINT U 

/ 

/SUBROUTINE TO DISPLAY A DIAGONAL LINE FROM 

/UPPER LEFT TO LOWER RIGHT O 

/ 

0IAG2 „ 

LAC (1777 /INITIALIZE 'Y« O 

DAC ,+3 

CLA /ZERO X _ 

JMS POINT /PLOT X,Y U 

1777 /Y 

CLAICMA /SUBTRACT 1 _ 

TAD ,'52 /FROM "Y" AND O 

DAC ,«3 /RESTORE 

SAD (!'i /ALL POINTS DISPLAYED? 

JMP« DIAG2 /YES, EXIT O 

ISZ COORD /NO, INCREMENT "X" 

LAC COORD . 

JMP ,«11 /DISPLAY NEXT POINT O 

.EvJECT 

O 

O 



o 










o 
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VP15A 


SRC 


o 










o 


00601 


R 


000000 


A 




00602 


R 


400032 


R 




00603 


R 


041547 


R 


c 


00604 


R 


220601 


R 




00605 


R 


400040 


R 




00606 


R 


100644 


R 


o 


00607 


R 


440601 


R 




00610 


R 


201547 


R 




00611 


R 


620601 


R 













o 












00612 


R 


000000 


A 




00613 


R 


441545 


R 


o 


00614 


R 


620612 


R 




00615 


R 


200612 


R 




00616 


R 


040106 


R 





00617 


R 


777634 


A 




00620 


R 


041545 


R 




00621 


R 


777777 


A 


o 


00622 


R 


041546 


R 




00623 


R 


441550 


R 


o 


00624 


R 


600427 


R 


00625 


R 


777776 


A 




00626 


R 


041550 


R 


o 


00627 


R 


201577 


R 




00630 


R 


040106 


R 




00631 


R 


400035 


R 


o 


00632 


R 


600631 


R 




00633 


R 


400036 


R 




00634 


R 


717777 


A 


o 


00635 


R 


041541 


R 




00636 


R 


600437 


R 


o 


00637 


R 


200644 


R 




00640 


R 


040106 


R 




00641 


R 


777777 


A 


o 


00642 


R 


041541 


R 




00643 


R 


600437 


R 


o 










o 










o 










o 










o 











VP15A SYSTEM EXERCISER 



POINT 



7 

/INCREMENT 'RUN CQUNTERI AND SETUP TO EXIT 
/IMINUS 5? AFTER PILOTING '100' POINTS 

/ 
JNCRUN 



JHP EXITM5 
.EJECT 



o 

o 



/SUBROUTINE TO DISPLAY A POINT WHERE THE »X» COORDINATE O 

/IS IN THE »AC» AND THE 'Y' COORDINATE IS IN 'gMS*4" 



O 

XCT UXB /UOAD 'X' BUFFER 

OAC COORD 

LACtt POINT O 

XCT UYBD /t.OAO 'Y' AND DISPLAY 'YBiXB' 

JHS WAITFG /WAIT FOR DONE Fl,AG _ 

IS2 POINT" O 

LAC qdORD 

JMP« POINT 



O 
O 



ISZ RUNCTR ^ 

JMP» INCRUN O 

LAC INCRUN 

DAC DSTSWl 



O 
O 
O 



LAW "144 

DAC RUNCTH 

LAW ^1 

DAC FLGDRV 

ISZ THRDCT 

UMP EXIT " 

/ 

LAW «2 

DAC THRDCT _ 

LAC uncr;i) O 

DAC OSTSWl 

XCT SDDF 

JMP 1^1 ^ 

XCT CDDF 

LAW «i ^ 

DAC HOLENB O 

JMP EXITM5 

INCR,1 LAC WAJTFG O 

DAC DSTSWl 

LAW «i ^ 

DAC HOLENB O 



o 



o 
o 
o 
o 



O 
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006S'<J R 620644 R JMP» WAITP« 

o ■■ ■■ ""'■■" / 

/PUOT '4' QUADRENTS OF A CIRCLE 



o 
o 
o 

o 



.EJECT 



o 

o 



O /WAIT FOR DISPLAY DONE FLAC? AND CIEAR FLAG, O 

/ 

006^4 R 000000 A WAITFG - 

O 00645 R 100612 R sJMS INORUN /INCREMENT RUN COUNTER, O 

00646 R 4000:55 R XCT SPDF /SKIP IN DISPLAY DONE, 

00647 R 600646 R .JMP i^l _ 
O 00650 R 400036 R XCT CDDF /CUEAR DISPLAY DONE O 

00651 R 100454 R JMS HQLDSW /CHECK FOR THE INHIBIT SW, 



O 
O 



O 00653 R 000000 A CIRCLE 

00654 R 201600 R LAC (XYAX|S 

00655 R 041527 R OAC YPOlN'f /ADDRESS OF 'Xr^Y' COORDINATE TABLE, ^ 
O 00656 R 100671 R JMS PLQTUH /PLOT THE 'UPPER RIGHT' QUADRENT O 

00657 R 2016»1 R LAC (TABEND-'l 

00660 R 041527 R DAC YPOINT ^ 

O 00661 R 100712 R JMS PLOTUL /Pl,OT THE 'UPPER LEFT' QUADRENT O 

00662 R 201600 R LAC (XYAXJS 

00663 R 041527 R DAC YPOINT 

O ^0664 R 100737 R JMS PLQTLL /PIOT Th£ 'LOWER RIGHT' QUADRENT, U 

00665 R 201601 R LAC (TABEND^l 

00666 R 041527 R DAC YPQINT ^ 
O 00667 R 100764 R JMS PLOTl,K /PLOT THE 'LOWER RIGHT' QUADRENT, O 

00670 R 620653 R JMP» CJRCLE 

/ " " ^ 

O /SUBROUTINE TO PLOT THE 'UPPER RIGHT' QUADRENT OF A CIRCLE, O 

/ 

00671 R 000000 A PLOTUR 

O 00672 R 221527 R LAC<* YPQINT O 

00673 R 541576 R SAD C»3, /ENQ OF TABLE? 

00674 R 620671 R JMP» PLOTUR /YES, EXIT 

O 00675 R 501602 R AND (777 " /MASK «X' COORDINATE C 

00676 R 740040 A CQNSTA XX ' /'NOP' QR 'QUADRENT COMPLIMENT 

00677 R 740040 A XX 

O 00700 R 341570 R TAD U000 /ADD SCREEN OFF^SET O 

00701 R 400032 R XCT LXB /LOAD THE 'X' BUFFER, 

00702 R 101011 R JMS MASKY /MASK 'Y' COORDINATE 

O 00703 R 740040 A CONSTB XX /INOPI OR 'QUADRENT COMPLIMENT O 

00704 R 740040 A XX 

00705 R 341570 R TAD U000 /ADD SCREEN OFF«SET 

O 00706 R 400040 R XCT L^BD /LOAD 'Y' AND DISPLAY 'YB«XB' O 

00707 R 100644 R JMS WAJTFG 

00710 R 441527 R ISZ YPOINT /INCREMENT COORDINATE POINTER, 

O 00711 R 600672 R JMP PLOTUR*! /DISPLAY NEXT POINT O 



O 

O 

o 

o 



o 
o 



o 
o 
o 
o 
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.EJECT 



o 



o 



O /SUBROUTINE TO Pi,OT THE tUPPER LEFT' QUADRENT OF A CIRCLE O 

/ 

00712 R 000000 A PLOTUL 

O ^^7i'6 R 221587 R LACtt YPOINT O 

00714 R 541576 R SAD C'^l /END OF TABLE? 

00715 R 620712 R JMP* PLQTUL /YES, EXIT 

O 00716 R 501602 R AND (777 ' /MASK 'X' COORDINATE O 

00717 R 740001 A CMA 

00720 R 341573 R TAD (l 

O 00721 R 740040 A CONSTC XX /NOP OR TAD («310 O 

00722 R 740040 A XX 

00723 R 341570 R TAD (1000 /ADD SCREEN OFF^SET, 

O 00724 R 400032 R XCT LXB /LOAD 'X' BUFFER O 

00725 R 101011 R JMS MASKY /GET 'Y' COORDINATE 

00726 R 740040 A CONSTP XX ^ 
O 00727 R 740040 A XX O 

00730 R 341570 R TAD (1000 /ADD SCREEN OFF-^SET, 

00731 R 400040 R XCT LYBD /L^AD 'Y' AND DISPLAY 'YB«XB« 

O 00732 R 100644 R \JMS WAITFC /INCREMENT 'RUN' COUNTER O 

00733 R 201527 R LAC YPOINT 

00734 R 341576 R TAD (fl " /DECREMENT ICOORDINATE' POINTER ^ 
O 00735 R 041527 R DAC YPOINT /SAVE IT O 

00736 R '600713 R »JMP PLOTUL*! /PLOT NEXT POINT 

O /SUBROUTINE TO PLOT THE 'LOWER LEFT' QUADRENT OF A CIRCLE, O 

/ 

00737 R 000000 A PLOTLL 

O 00740 R 221527 R LAC» YPOINT O 

00741 R 541576 R SAD («1 /END OF TABLE? 

00742 R 620737 R gMP« PLOTLL /YES, EXIT ^ 
O 00743 R 501602 R AND {777 /MASK 'X' COORDINATE O 

00744 R 740001 A CMA ■ 

00745 R 341573 R TAD (*1 

O 00746 R 740040 A CQNSTE XX /'NOP' QR TAD (»3l0 O 

00747 R 740040 A XX 

00750 R 341570 R TAD (1000 /ADD SCREEN OFF^SET ^ 

O 00751 R 400032 R XCT LXB /LOAD 'X' BUFFER O 

00752 R 101011 R JMS MASKY /MASK 'Y' COORDINATE 

00753 R 740001 A CMA 

O 00754 R 3415/3 R TAD (1 O 

00755 R 740040 A CONSTF XX /NOP OR TAD (b310 

00756 R 740040 A XX 

O 00757 R 341570 R TAD (1000 /ADD SCREEN OFF-sSeT, O 

00760 R 400040 R XCT LYBD /LOAD 'Y' BUFFER AND DISPLAY 'YBcXB' 

00761 R 100644 R JMS WAJTFCJ 

O 00762 R 441527 R ISZ YPOINT /INCREMENT 'COORDINATE' POINTER O 

00763 R 600740 R JMP PLOTLL+1 /PLOT NEXT POINT 



O 

o 
o 
o 



o 
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o 

o 



o 
o 



o 



O /SUBf^OUTjNE TO Pl,QT THE 'LQWER RIGHT' QUADRENT OF A CIRCLE, O 

/ 

00764 R 000000 A PLOT^R _ 

O 00765 R 22lSii7 R l,AC» YPOfNT O 

00766 R 541576 R SAD («1 /END OF TABLE? 

00767 R 620764 R JMP** PLQTL« /YES, EXIT _ 
O 00770 R 501602 R AND (777 ' /MASK 'X' COORDINATE O 

00771 R 740040 A CONSTG XX 

00772 R 740040 A XX _ 
O 00773 R 341570 R TAD (1000 ^ 

00774 R 400032 R XcT [,)(B /LOAD THE 'X' BUFFER, 

00775 R 101011 R siMS MASKY /MASK 'Y' COORDINATE 
O 00776 R 740001 A CMA 

00777 R 341573 R TAD (1 

01000 R 740040 A CONSTH XX 

O 01001 R 740040 A XX 

01002 R 341570 R TAD (1000 /ADD SCREEN OFF-.SET 

03,003 R 400040 R XCT LYBO /LOAD THE »Y' BUFFER AND DISPLAY 

O 01004 R 100644 R JMS WAITFG /INCREMENT 'RUN' COUNTER O 

01005 R 201^527 R LAC YPOINT 

01006 R 341576 R TAD «-?! ' /DECREMENT COORDINATE POINTER 
O 01007 R 041527 R DAC YPOINT 

01010 R 600765 R JMP PL0TLR*1 

O /MASK THE 'Y' COORDINATE AND EXIT WILL RESULT IN THE »AC', O 

/ 

01011 R 000000 A HASKY 

O 01012 R 221527 R LACa YPOINT O 

01013 R 501603 R AND (777000 

01014 R 746020 A CLLIRTR ' _ 
O 01015 R 742020 A RTR O 

01016 R 742020 A RTR 

01017 R 742020 A RTR ^- 
O 01020 R 740020 A RAR O 

01021 R 621011 R JMP<» MASKY 

O /INCREMENT PASS CPUNTER AND SET DSTSWl O 

/ 

01022 R 000000 A SETEX5 
O 01023 R 201022 R LAC SETEX5 

01024 R 040106 R DAC PSTSWl 

01025 R 041541 R DAC HOLENB 
O 01026 R 441022 R ISH SETEX5 

01027 R 441544 R ISH QHIRI 

01030 R 600437 R »JMP EXITM5 

O 01031 R 621022 R gMP» 5ETEX5 

• EnIECT 

O 
O 
O 

O 



o 
o 
o 
o 
o 
o 

o 



o 
o 



o 
o 
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O /SUBROUTINE TO INCREMENT AND PL.OT A PREDETERMINED O 

/«X' AND 'Y« COUNT '1000f POINTS, 

' ' ' ' o 



O 01032 R 000000 A 

01033 R 201S24 R 

01034 R 400033 R 
O 01035 R 441524 R 

01036 R 201525 R 

01037 R 400037 R 
O 01040 R 441525 R 

01041 R 100644 R 

01042 R 201525 R 
O 01043 R 541526 R 

01044 R 621032 R 

01045 R 601033 R 

o 
o 

01046 R 000000 A 

01047 R 201524 R 
O 0i050 R 400033 R 

01051 R 201524 R 

01052 R 3415/6 R 
O 01053 R 041524 R 

01054 R 20iS25 R 

01055 R 400037 R 
O 01056 R 441525 R 

03,057 R 100644 R 

01060 R 201525 R 

O 01061 R 541526 R 

01062 R 621046 R 

01063 R 601047 R 

o 
o 
o 
o 
o 
o 
o 
o 
o 



JNCXY 











l-AC 


TEMPI 






XCT 


UYB 


/LOAD 'Y' BUFFE 




!SZ 


TEMPI 






UAC 


TEMP2 






XCT 


L-XBD 


/LOAD 'X' AND D 




ISZ 


TEMP2 






JMS 


WAITFG ■ 






t-AC 


TEMP2" 






SAD 


tlMp3 






vIMP* 


INCXY 






»JMP 
1 


INGXY*1 




/SUBROUTINE TO 


INCREMENT 


•Xf AND DECREMENT 'Y', 


INXDCY 


/ 









LAC 


TEMP3, 






XCT 


LYB 






LAC 


TEMPI 






TAD 


Ud, 






DAC 


TEMPI. 






LAC 


TEMP2 






XCT 


LXBD 






IS? 


TEMP2 






4MS 


WAITFG 






LAC 


TEMP2" 






SAD 


tEMp3 






JMP« 


JNXDCY 






JMP 


INXDCY*1 






.EJECT 







o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
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VP15A 


SRC 


VP3.5A SYSTEM EXERCJSER 

/TABl,£ OF 'XoY' COORDINATES FOR A 4" 
/Y,X 


CIRCLE 


01064 


R 


777777 


A 


777777 




01065 


R 


000310 


A 


XYAXIS 0310 




03,066 


R 


001310 


A 


1310 




01067 


R 


002310 


A 


2310 




01070 


R 


003310 


A 


3310 




01071 


R 


004310 


A 


4310 




01072 


R 


005310 


A 


5310 




01073 


R 


006310 


A 


6310 




01074 


R 


007310 


A 


7310 




01075 


R 


010310 


A 


10310 




01076 


R 


011310 


A 


11310 




01077 


R 


012310 


A 


12310 




01100 


R 


013310 


A 


13310 




01101 


R 


014310 


A 


14310 




01102 


R 


015310 


A 


15310 




01103 


R 


016310 


A 


16310 




01104 


R 


017310 


A 


17310 




01105 


R 


020307 


A 


20307 




01106 


R 


021307 


A 


21307 




01107 


R 


022307 


A 


22307 




01110 


R 


023307 


A 


23307 




01111 


R 


024307 


A 


24307 




01112 


R 


025307 


A 


25307 




01113 


R 


026307 


A 


26307 




01114 


R 


027307 


A 


27307 




01115 


R 


030307 


A 


30307 




01116 


R 


031306 


A 


31306 




01117 


R 


032306 


A 


32306 




01120 


R 


033306 


A 


33306 




01121 


R 


034306 


A 


34306 




01122 


R 


035306 


A 


35306 




01123 


R 


036306 


A 


36306 




01124 


R 


037306 


A 


37306 




01125 


R 


040305 


A 


40305 




01126 


R 


041305 


A 


41305 




01127 


R 


042305 


A 


42305 




01130 


R 


043305 


A 


43305 




01131 


R 


044305 


A 


44305 




01132 


R 


045305 


A 


45305 




01133 


R 


046304 


A 


46304 




01134 


R 


047304 


A 


47304 




01135 


R 


050304 


A 


50304 




01136 


R 


051304 


A 


51304 




01137 


R 


052304 


A 


52304 




01140 


R 


053303 


A 


53303 




01141 


R 


054303 


A 


54303 




01142 


R 


055303 


A 


55303 




01143 


R 


056303 


A 


56303 




01144 


R 


057302 


A 


57302 




01145 


R 


060302 


A 


60302 




01146 


R 


061302 


A 


61302 





o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 












o 
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VP15A 


SRC 


VP15A SYST 


o 


01147 


R 


062302 


A 


62302 




01150 


R 


063301 


A 


63301 




01151 


R 


064301 


A 


64301 


o 


01152 


R 


065301 


A 


65301 




01153 


R 


066301 


A 


66301 




01154 


R 


067300 


A 


67300 


c 


01155 


R 


070300 


A 


70300 




01156 


R 


071300 


A 


71300 




01157 


R 


072277 


A 


72277 


o 


01160 


R 


073277 


A 


73277 




01161 


R 


074277 


A 


742/7 




0il6iJ 


R 


075276 


A 


75276 


o 


01163 


R 


076276 


A 


762/6 




01164 


R 


077276 


A 


77276 




01165 


R 


100275 


A 


100275 


o 


01166 


R 


101275 


A 


101275 




01167 


R 


102275 


A 


102275 




01170 


R 


103274 


A 


103274 


o 


01171 


R 


104274 


A 


104274 




01172 


R 


105274 


A 


105274 




01173 


R 


106273 


A 


106273 


o 


011/4 


R 


107273 


A 


107273 




01175 


R 


110273 


A 


110273 




01176 


R 


111272 


A 


111272 


o 


01177 


R 


112272 


A 


112272 




01200 


R 


113271 


A 


113271 




01201 
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